PC Answers 2003 September/PC Answers September 2003.iso/Software/trial/AutoMate 5.0.4.1/automate5_eval_setup.exe/TaskEdit.exe/0/RCDATA/TFRMLOOP/TFRMLOOP.txt

Text File | 2003-01-14 | 4.2 KB | 180 lines

inherited frmLoop: TfrmLoop
  Left = 409
  Top = 142
  HelpContext = 52
  OldCreateOrder = True
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  inherited pnlTop: TPanel
    inherited lblCommandName: TLabel
      Caption = ''
    end
    inherited img1616: TImage
      Top = 60
      Height = 12
      Picture.Data = {<image000.ico>}
    end
    inherited memActionDesc: TMemo
      Lines.Strings = (

          'Loops through the range of numbers specified.  The variable spec' +
          'ified in the '

          'Index parameter is updated with the current loop count.  With ea' +
          'ch successive '

          'loop, the loop counter is incremented by the number specified in' +
          ' the Step '

          'parameter. The loop ends after the counter has reached the numbe' +
          'r specified in '
        'the stop parameter or when a Break is encountered.')
    end
  end
  inherited pnlCenter: TPanel
    inherited pgcControlPage: TPageControl
      inherited tbsAM5Main: TTabSheet
        object lblStart: TLabel
          Left = 27
          Top = 108
          Width = 202
          Height = 13
          AutoSize = False
          Caption = '&Starting index:'
          FocusControl = edtStart
        end
        object lblStop: TLabel
          Left = 234
          Top = 108
          Width = 218
          Height = 13
          AutoSize = False
          Caption = '&Ending index:'
          FocusControl = edtStop
        end
        object lblTotalLoops: TLabel
          Left = 27
          Top = 32
          Width = 56
          Height = 13
          Caption = 'T&otal loops:'
          FocusControl = edtTotalLoops
        end
        object edtStart: TEdit
          Left = 27
          Top = 124
          Width = 201
          Height = 21
          TabOrder = 0
        end
        object edtStop: TEdit
          Left = 234
          Top = 124
          Width = 202
          Height = 21
          TabOrder = 1
        end
        object rdoLoopTimes: TRadioButton
          Left = 10
          Top = 12
          Width = 313
          Height = 17
          Caption = '&Loop a number of times'
          TabOrder = 2
          OnClick = rdoLoopTimesClick
        end
        object edtTotalLoops: TEdit
          Left = 27
          Top = 48
          Width = 121
          Height = 21
          TabOrder = 3
        end
        object rdoLoopIndex: TRadioButton
          Left = 10
          Top = 88
          Width = 313
          Height = 17
          Caption = 'Loop through a &range'
          TabOrder = 4
          OnClick = rdoLoopIndexClick
        end
      end
      object tbsAdvanced: TTabSheet [1]
        Caption = 'Advanced'
        ImageIndex = 3
        object chkStep: TCheckBox
          Left = 10
          Top = 12
          Width = 425
          Height = 17
          Caption = 'Increment by ste&p:'
          TabOrder = 0
          OnClick = chkStepClick
        end
        object edtStep: TEdit
          Left = 27
          Top = 32
          Width = 208
          Height = 21
          TabOrder = 1
          Text = '1'
        end
        object cboIndexVar: TAM5VarListComboBox
          Left = 27
          Top = 85
          Width = 208
          Height = 21
          ItemHeight = 0
          TabOrder = 2
        end
        object chkPopulateVar: TCheckBox
          Left = 10
          Top = 64
          Width = 441
          Height = 17
          Caption = 'Populate &variable with index count:'
          TabOrder = 3
          OnClick = chkPopulateVarClick
        end
      end
    end
  end
  inherited taclKeyboardTrap: TActionList
    Left = 200
  end
  inherited dxSIBarManager: TdxBarManager
    Categories.ItemsVisibles = (
      2)
    Categories.Visibles = (
      True)
    PopupMenuLinks = <
      item
        Control = lsvAM5Errors
        PopupMenu = dxCheckPopup
      end>
    DockControlHeights = (
      0
      0
      0
      0)
  end
  inherited dxCheckPopup: TdxBarPopupMenu
    ItemLinks = <
      item
        Item = itmCheckAllErrors
        UserGlyph.Data = {00000000}
        Visible = True
      end
      item
        Item = itmCheckNoErrors
        UserGlyph.Data = {00000000}
        Visible = True
      end>
  end
  inherited IvTranslator1: TIvTranslator
    Left = 232
  end
end